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| DECnet Ethernet Configurator Module ibese -1984 :06: AX-11 Bliss-32 V4.0-742 P 1) 
° 14- = 8ep-19 4 95:06:88 NICNF.SR RCION CNFSEND.B32;1 — (1) 


ZTITLE ‘DECnet Ethernet Configurator Module’ 
MODULE CNF SEND 
LANGUAGE COL 13536) « 
al = 'v04-000' 


' 
REAR RE EE AE AAA E EEA EEE 


folejeleloelelolola) 


OWONAUEWN $9 ODNOU EWN (HO OONOUS WN OO CONOUL WR 


!t COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


| 
BEGIN | 
® 
® 
* 
& 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coriee * 
't ONLY IN mee * DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
‘® COPIES THEREOF MAY HOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. % 
. ® 
ie pe gh pa A IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
He SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
He CORPORATION. * 

® 

*® 

® 

as 

*® 

® 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


RIRSRIRIRORSROR DoD ob bebo cb obod oboe 


PTTITIIILILILILI LILI LI LELI LILLIE LiL Lititiiiiii iit 
' 

ee 

FACILITY: DECnet Configurator Module (NICONFIG) 

! ABSTRACT: 


This module contains the routines to buffer and send NICE 
response messages to the processes which interrupt with requests. 


i 
' 
i 
' 
i 
ENVIRONMENT: VAX/VMS Operating System 
i 
‘ 
i 
i 
ie 


Oo 
Ww 


' AUTHOR: Bob Grosso, CREATION DATE: 18-Jan-1982 
MODIFIED BY: 
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DECnet Ethernet Configurator Module ihese -1984 02:06: AX-11 Bliss-32 V4.0-74 Page 2 
Bettnlclons ° 12-08-1382 95:06:48 NICNF. SRCIONF SEND B32: . (2) | 
: 49 0048 1 XSBTTL ‘Definitions' 
3 0 0469 1 | 
3 1 pay 7% | 
eB. 051 1 | INCLUDE FILES: | 
igs. O26 1! 
; 34 053 1 
3 ; boee : LIBRARY ‘'SYSS$LIB®eRY:STARLET'; ' VMS common definitions 
; 28 3028 1 REQUIRE ‘LIBS: CNFDEF.R32'; 
;- 0147 1 
s 59 0148 1 REQUIRE ‘SRC$:CNFPREFIX.REQ'; | 
; & 8 45 1 
ee | g 1 
3 6¢ 024 1! 
;* 0248 1 ! BUILTIN functions 
: 664 0249 1! 
s 65 0250 1 
: 66 0251 1 BUILTIN 
> or 0 2g 1 INSQUE, ' INSQUE instruction 
; ose 1 REMQUE; ' REMQUE instruction 
; 69 0254 1 
; 70 BS 22 1! 
; 71 0256 1 ! TABLE OF CONTENTS: 
; 2 0257 1! 
Se 0258 1 
i. 2. 0259 1 FORWARD ROUTINE | 
ae 0260 1 
}. = 0261 1 CNFSBUFR_NICE_MSG, ! Buffer NICE messages into IRB. 
; ur o8e8 CNF$SEND-NICE-MSG; i Send the NICE message stored in IRB | 
3 79 0264 1! 
: 80 0265 1 ! EXTERNAL REFERENCES: 
3 81 0266 1! 
; @ 0267 1 
; 8 0268 1 EXTERNAL ROUTINE 
; BS 0269 1 
3 85 0270 1! Module CNFMAIN 
; 0271 1 
; Of 0 % 1 CNFSTRACE, ' Log gessnges to log file 
; «488 02735 1 CNFSLOG_DATA, ! Log formatted data to log file 
3 89 0274 1 CNFSGET ZVM, ' Get zeroed virtual memory 
; oo 8 e CNFSFREE_VM, ! Free virtual memory 
; 0 r : : Module CNFINTRPT | 
ls 94 79 «1 CNFSCLOSE_REQUEST_LINK, ! After an unsuccessful 10 shut down the Link and deallocate control | 
3 95 0280 1 CNFSSOLICTT_REQUEST, 
; + 0281 1 
3 44 3 : 4 Module CNFWORKQ 
3 44 Be : WKQSADD_WORK_ITEM; ! Add work to work queue 
: +4 1 
se 7 1 EXTERNAL LITERAL 
; 104 0289 1 CNFS_LINK, ! Error on logical Link | 
s 105 0290 1 
| 
| 
| 
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CNF SEND net Ethernet Configurator Module bese -1984 02:06: AX-11 Bliss-32 V4.0-74 P 
V04- SBUFR_NICE_MSG Buffer the response message 12286871382 95:09:88 ENICNE. SROTENE SEND 63224 se 3 
SBTTL ‘CNFSBUFR_NICE_MSG Buffer the response message’ 

GLOBAL ROUTINE CNFSBUFR_NICE_MSG (IRB, MSG, DEALLOCATE. LEN) = 

| 


ie¢ 
} FUNCTIONAL DESCRIPTION: 


Place the NICE message onto a Linked List of messages stored 
in the IRB for Later transmission to the connectee. 


FORMAL PARAMETERS: 


irb ingerrust Request Block, contains context for 
1/0 with connectee. 
msg address of buffer containing NICE message to be 


stored in the IRB. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

; deallocate_len Length of message to be deallocated after transmission. 
: Some messages are stored in buffers allocated in VM 
: and must be deallocated after transmission. Others 
reside on the stack or in OWN storage and shouldn't 
4 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

lo 


WAAL ALAIPO POP NDPUPOPONUNUP 2 A SS es 


be deailocated. 
IMPLICIT INPUTS: 
NONE 


IMPLICIT QUTPUTS: 
NONE 


COMPLETION CODES: 
Success 


IRB : REF BBLOCK, 
MSG : REF BBLOCK; 


LOCAL 
BNR _: REF BBLOCK, 
STATUS; 


PAPA DIAMIUIN ES & BEEBE EE PW 


CNFSTRACE (DBGSC_TRACE, S$DESCRIPTOR('TRACE"), 
SDESCRIPTOR T'cnf$bufr_nice_msg')); 


NOD oon ws 


EXECUTE (CNFSGET_Z2VM (ZREF (BNRSC_LENGTH), BNR) ); ' Get space to store header and message 
BNR pense ADDRESS) = .MSG CDSCSA POINTER]; ' Record message buffer pointer 
BNRSW"LENGTH) = .MSG COSCSW_CENGTH); 

BNR CBNRSW_ FREE LEN = ,DEALLOCATE LEN: 
INSQUE (.BRR, .TRB CIRBSL_BNR_BLINR)); 


RETURN TRUE; 


! Record message length 


! Queue message onto IRB 
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: ROUTINE VALUE: 
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BEGIN 
MAP 
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CNF SEND DECnet Ethernet Configurator Module 16-Sep-1984 02:06: AX-11 Bliss- 4.0-74 
v062000 CNFSBUFR_NICE_MSG Buffer the response message 1a-Sep- 38 95:08:88 ENICN SRC ENPSEND “O30, Page 33 


: #171 0355 1 END; ! Routine cnf$bufr_nice_msg 


-TITLE CNFSEND DECnet Ethernet Configurator Module 
“IDENT \V04-000\ ° : 


-PSECT SPLITS,NOWRT,NOEXE,2 


45 43 41 52 54 00000 P.AAB: .ASCII \TRACE\ | ; 
900 -BLKB 
80990009" goog | “* “ADDRESS P.AaB 
6D SF 65 63 69 6E SF 72 66 75 62 24 66 6 $3 0016 P.AAD: <ASCII \cnf$bufr_nice_msg\ : 
0021 .BLKB 3 ; 
00000011 00024 P.AAC: :LONG 17 ; 
00000000' 00028 “ADDRESS P.AAD : 


-EXTRN WKQSADD WORR_ITEM 
-EXTRN CNFS_LIRK, CRFSC_ASYNCH_EFN 
-EXTRN CNFSGL_LOGMASK 


-PSECT S$CODES,NOWRT,2 


0000 000 .ENTRY CNFSBUFR_NICE_MSG, Save nothin 0299 
SE 08 ¢2 000 SUBL2. #8, SP ° 
0000" CF 9F 000 PUSHAB P.AAC 0344 
0000" CF 9F 000 PUSHAB P.AAA 0343 
01 DD 0000 PUSHL #1 
00006 CF 03 FB 0000 CALLS #3, CNFSTRACE 
04 Ar OF 0001 PUSHAB 
04 AE 10 00 0001 OVL #16, 4(SP) 
04 AE 9F 0001 4(SP) 
00006 CF Q FB 001 CALLS #2, CNFSGET_ZVM 
é! E9 000 BLBC = STATUS, 1$ 
1 04 AE 09 00 MOVL BNR, Ri 0348 
50 08 ac DO 000 MOVL MSG, RO 
Oc Al 04 AO D0 000 MOVL  4(RO), 12(R1) 
08 al 60 8B 00 MOVW = (RO), 0349 
OA Al ¢ aC B MOVW DEALLOCATE_LEN, 10(R1) 9 51 
50 4 AC 3 0 MOVL 52 
18 80 61 F 04 INSQUE (R1$, @24(RO) 
0 01 D 004 MOVL #1, RO 0 54 
04 00047 1$: 55 


; Routine Size: 72 bytes, Routine Base: $CODE$ + 0000 
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ERR_MSG Buffer the error response mes 1 ~Sep-19 4 95:08:88 ENICNE . SRCTENF SEND 832; 


ZSBTTL  ‘CNFSBUFR tay MSG Buffer the error response message’ 
GLOBAL ROUTINE CNFSBUFR_ERR_ 
(IRB, ERR_CODE, ERR_DETAIL, ERR_TXT_COD, ERR_TXT_DSC) = 


'e¢ 


FUNCTIONAL DESCRIPTION: 


Build the error response message and buffer it for later return to 
the connectee. 


FORMAL PARAMETERS: 


i 
i 
i 
i 
: irb ingercust Request Block, contains context for 
1/0 with connectee. 
i err_code The error code is returned in the first byte 
of the NICE response message. 
i err_detail The error detail is returned in second and third bytes 
of the NICE response message. 
i err_txt_cod An optional error status, for which the error text 
will be obtained and buffered 
err_txt_dsc An optional error text which will be buffered 
i IMPLICIT INPUTS: 
} NONE 
i IMPLICIT OUTPUTS: 
} NONE 
i ROUTINE VALUE: 
' COMPLETION CODES: 
Always return success 
i SIDE EFFECTS: 
Error message is built and buffered and stored in the IRB 
ie 

BEGIN 

BUILTIN 

NULLPARAMETER; ! To check for optional parameters 
LITERAL 
DECODED_TXT_BUFLEN = 256; ! Maximum size of text string for decoded error messages 


MAP 
ERR_TXT_DSC : REF BBLOCK; 


LOCAL 
ERR_TXTLEN, ! Either the length of the text decoded from the ERR_TXT_COD 
! or the length of optional text in ERR_TXT_DSC 
MSG : ! Descriptor of message being built 
BBLOCK CDSC$C_S_BLN), 


CNF SEND 
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ernet Configurator Module 1b-se 4 AX-11 Bliss-32 V4.0-74 Page 7 
RR_MSG Buffer the error response mes 1 Haat hi 93: 98: 8 NICNF.SR Rcic tne SEND “B35; ° (4) 
STATUS 
DECODED Txt LEN ! Length of message text decoded from ERR_TXT_COD 
ECODED“TXT-BUFDSC : ! Descriptor of message text decoded from ERR_TXT_COD 
BBLOCR CDSC C.S_BL ], 
DECODED TXT _BUF : Pulter for message text decoded from ERR_TXT_COD 
BBLOCR CDECODED. TXT_BUFLEN 


CNFSTRACE (DBGS$C_TRACE SDESCRIPTOR(’ TRACE'), 
SDESCRIPTOR C'cnf$bufr_err_msg')); 


MSG = Q; ! Zero descriptor Length and type fields 
ERR_TXTLEN = 0; : . és 
' 
: Set up descriptor and buffer for decoding the optional error code 
DECODED_ TXT_LEN = 0; 
DECODED-TXT_BUFDSC = 0; 
DECODED_TXT_BUFDSC postsuue LENGTH] = DECODED _TXT_BUFLEN; 
DECODED_TXT_BUFDSC CDSCSA_POINTER] = DECODEB_TXT_BuF; 
IF NOT NULLPARAMETER (4) 
THEN | 

; Parameter ERR_TXT_COD was provided so decode it 

BEGIN 

SGETMSG (MSGID = .ERR_TXT -£00. 

MSGLEN = DECODED_TXT_LEN, 
BUFADR = DECODED_TXT “BUF OSC): 

ERR_TXTLEN = .DECODED _TXTILENF 

END™ 
ELSE 

i ORR SxTe arameter ERR_TXT_COD was not provided so see if 

R_TXT_DSC was and use it” instead. 

BEGIN 

Nene NULLPARAMETER (5) 

- ERR_TXTLEN = .ERR_TXT_OSC COSCS$W_LENGTH); 

G CDOSC$W_LENGTH) = 4 + “pee TXTLEN; 

EXECUTE (CRFSGET_ZVM (MSG CDSTSW LENGTH], MSG CDSCSA_POINTER]) ); ! Get space to store message 
(.MSG CDSCSA_POINTER ; < >= ov ERR CODE; ! First byte is error code 
(.MSG CDOSCS$A_POINTER]) < 6> = .ERR R_DETAIL i Second and third bytes are error detail 
(.MSG CDSCSA_POINTER]) < ‘. 8> = .ERR-TXTLEN i Fourth byte is length of optional error text 
ae -ERR_TXTLEN GTR 0 

4 

: Bot tons L text was provided either by decoding ERR_TXT_COD 

: or in ERR_T T pst; SO append it to error message béing built 
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CHSMOVE (. ERR TXTLEN 
(IF “DECODED. TXT_LEN GTR 0 


DECODED_TXT_BUF 
-ERR_TXT_DSC COSCSA_POINTER] 

(.MSG COSCSA_POINTER]) + 4); 

CNFSBUFR NI CE_MSG (. IRB, MSG, 


45 43 41 


72 66 75 62 24 66 


5E 


52 


05 


-MSG COSCSW_LENGTH)); 
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! Routine cnf$bufr_err_msg 


-PSECT SPLITS,NOWRT,NOEXE,2 
eASCII = \TRACE\ 
BLKB 


- LONG 
eADDRESS P.AAF 
ASCII \cnf$bufr_err_msg\ 


LONG 16 
-ADDRESS P.AAH 


~-EXTRN SYSSGETMSG 

-PSECT SCODES$,NOWRT,2 

ENTRY CNFSBUFR_ERR_MSG, Save R2,R3,R4,R5 
MOV 276(SP), SP 


- AAG 
PUSHAB P.AAE 
eis msg CNFSTRACE 


CLRL ee 1Xt76 


MOV 
MOVAB DECODED TXT cpa spurpse TXT_BUFDSC+4 
CMPB =: (AP), 

BLSSU‘1$ 

TSTL 16¢AP) 

BEQL =s«18 

MOVO #15, =(SP) 

PUSHAB DECGDED_TXT_BUFDSC 

PUSHAB DECODED"TXT~LEN 

PUSHL ERR_TXT~COD™ 

CALLS #5, SYSSGETMSG 

MOVL DECODED_ TXT_LEN, ERR_TXTLEN 

BRB 

CMPB ss), #5 

BLSSU -2$ 

TSTL O(AP) 

BEQL $ 


! Place the error message in the IRB for Later trans 


| 
j 
| 
j 
EE 


CNF SEND DECnet Ethernet Configurator Module 18-5 Sep-1 AX-11 Bliss-32 v4.0 
1042508 CNF SBUFR_ERR_MSG Butter the error response mes 1 500-138 5: 9: g§ NICNF ..SRCJCNF SEND. g35F 
146 BC 3C 00057 MOVZWL @ERR_TXT_DSC, ERR_TXTLEN 
F8 AD 35 4 AI a3 2$ ADDUS a Eg RR TXTLEN, MSG 
FC AD 3 6 PUSHAB 
F8 AD OF PUSHAB nse 
00006 CF : FB 4 CALLS #2, CNFSGET_ZVM 
E E B LBC = STATUS, 6$ 
1 FC AD D MOVL MSG+4, R1 
61 0 AC 9 MOVE ERR_CODE, (R1) 
01. «Al Cc oO : 7 MOVW  ERRIDETAIL, 1(R1) 
03 Al 5 078 MOVB ERRTTXTLEN, 3(R1) 
52 DS O007F TSTL ERR_TXTLEN 
7 4 9081 BLE § 
6— D 3 TSTL DECODED_TXT_LEN 
06 15 0085 BLEG $ 
50 04 AE 9E 00087 MOVAB DECODED_TXT_BUF, RO 
08 11 90 BRB 4$ 
50 14 AC 00 D 3$ MOVL ERR_TXT_DSC, RO 
50 04 Aad 00 00091 MOVL 4(RO), 
04 Al 60 5 ¢8 0095 4$: MOVC3 ERR_TXTLEN, (RO), 4(R1) 
7E F8 AD 3C OOO9A S$: MOVZWL MSG, (SP) 
F8 AD 9F 0009E USHAB MSG 
04 AC DD OOOAT PUSHL IRB 
FEOF CF 03 FB DOA, CALLS #3, CNFSBUFR_NICE_MSG 
50 01 po 000A9 MOVL #1. RO 
QOOAC 6$: RET 


; Routine Size: 173 bytes, Routine Base: S$CODE$ + 0048 
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ZSBTTL ‘CNFSSEND NICE_MSG send the response message’ 
GLOBAL ROUTINE CNFSSEND_NICE_MSG (IRB) = 


'44¢ 


FUNCTIONAL DESCRIPTION: 


Called first from CNFSPROCESS_REQUEST, a routine executed off 
the work queue. There will be an assumption at this point that 
the IOSB contains a success from : previous interaction over the 
channel. The first NICE message in the IRB is Q10'd and from 
then on CNFSSEND_NICE_MSG is executed as an AST routine upon Q10 
gonplet ion. The I0SB is checked before another NICE message 

s removed and Q10'd. 


When the List is empty then a CNFSSOLICIT_REQUEST is placed on 
the work queue. 


FORMAL PARAMETERS: 


irb inzerrust Request Block, contains context for 
1/0 with connectee. 


Cad 


2s 
eo ® 

os 

ms 

ze 
4d 


IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


Cette Ret el Re heed Be ee et et et ee ee 


BEGIN 
MA 
IRB : REF BBLOCK; 


LOCAL 
BNR _: REF BBLOCK, 
STATUS; 


CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR('TRACE'), 
SDESCRIPTOR T'cnf$send_nice_msg')); 


The first time thru, the I0SB should contain a success status 
from a previous 1/0 on the channel. For subsequent passes. 
CNFSSEND_NICE_MSG will be called to send the next NICE message. 


] 
i 
i 
i] 
i Then the IOSB will contain the status for the previous send, 
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NICNF. 


and then if there was an error on the channel, the channel will 
will be closed. 


—— = IRB CIRB$W_10SB); 
a" «STATUS 


n 
E_MSG send the response message 14-Sep-1 
! 
§T 
IF 
TH 
BEGIN 
IF (. SrATus NEQ SS 
(STATUS NEQ SS$~ 
NFS L 
IT 


$ 
ER 


m— 
oc 
cm 
m~ 
“ee 
a 
‘/- 
— 
=z 
xn 
7 

= 
— 
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@ 
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SIGNAL (C 
of ope WORK 
RETURN TRUE;~ 
ENDS 


Check to see if this call of the routine follows a call in which a 
buffered message was sent. In that case it should now be 
deallocated. his would not be the case if this was the first 
cail to this routine. 


Oe Le eee ee 


F_.IRB CIRBSW_FREE_LEN] NEQ 0 
HEN EGIN 
: ECUTE (CNFSFREE_VM Ss IRB wre FREE_LENJ), IRB CIRBSL_NICE_ADRI) ); 
IRB CIRB$SW_FREE_LEN) ' Keep it clean to avoid confusion™ 
ND; : when another set of messages are buffered. 
' 
! If there are any Buffered NICE Responses in the Linked List 
then remove the next and set it up for sending. Deallocate the header. 
IF .IRB CIRBSL_BNR_FLINK] NEQ IRB CIRBSL_BNR_FLINK] 
THEN ! There are messages to send 
BEGIN ! Get the next buffered message ready for sending 
R = .IRB CIRBSL_BNR_FLINK); 
REMQUE (.BNR, STATUS); ! Remove the next message 
IRB CIRBSW_NICE_LEN) = .BNR CBNRSW_LENGTH): 
IRB IRBSL-NICE_ADR = «BNR BNRSL “ADDRESS; 
IRB CIRBSW-FREE-LEN) = .BNR LEN); 
aa (CAF SFREE_VM (AREF CBNRSC sTENGTHTS eBNAD ); 
ELSE | 
i No more NICE messages buffered 
Last request has been completed, solicit another. 
BEGIN 
WKQSADD_WORK_ITEM (CNFSSOLICIT_REQUEST, .IRB); 
RETURN TRUE; 
: 
! If NICE Gobug logging is enabled, print the NICE message about 
to be sen 
if .CNFSGL_LOGMASK CDBGSC_NICE) 


fete Se ee Ge te ae 
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60 5F 65 63 


65 74 74 69 


2 
DECnet Ethernet Configurator Module 1s Sep-1 
CNFSSEND_NICE_MSG send the response message 14-Sep-1 
59 THEN 
239 BEGIN 
598 LOCAL PATA_DSC : : BBLOCK COSCS$C_S_BLNI; 
599 DATA_DSC ="0; 
0600 DATA_DSC postsw._t LENGTH] = TRB C RBSy NIC 
0601 DATA-DSC CDSCS$A~ POINTE ER] = RBSC_NI 
060¢ CNFSCOG_DATA (DBGSC_NICE, sbESERIDTOR T'N 
0604 
Mair Send the NICE 
en e message 
§60? i ° 
0608 STATUS = $Q10 
0609 ( 
0610 FUNC = 10$_WRITEVBLK, 
0611 CHAN = .IRB CIRB$W_CHAN), 
061¢ EFN = CNFSC_ASYNCH-EFN 
061 10SB = IRB TIRB$W_TOSBd, 
0614 ASTADR = CNFSSEND-NICE_MSG, 
0615 2 ASTPRM = .IRB 
0616 2 Pl = .IRB CIRBSL_NICE_ADR, 
0617 2 P2 = IRB CIRBSWINICE-LENJ 
0618 2 ); 
0619 2 
0620 2 IF NOT .STA 
0621 ; THEN S1éMat VeNFS _LINK, 0, .STATUS); 
$058 2 RETURN TRUE; 
0624 1 END; 


45 43 41 52 54 00054 P.AAJ 
00059 
00000005 0005C P.AAI 
00000000" 00060 
69 6€ SF 64 6E€ 65 73 24 66 of $3 00064 P.AAL 
67 73 00073 
fe 
00000011 00078 P.AAK 
00000000" 0007¢ 
6D 73 6€ 61 72 74 20 45 43 49 af it! P.AAN 
00000010 00090 P.AAM 
00000000" 00094 
00 


Be 15:09:88 


X-11 Bligs- 
NICNF .SRCIEN 


E_LEN EN}; 
ICE_A 
(te Cranendtted® ),0, DATA_DSC); 


! Routine cnf$send_nice_msg 


-PSECT $PLIT$S,NOWRT,NOEXE,2 
ASCII \TRACE\ 
-—BLKB 3 
LONG * 
ADDRESS P 
ASCII \entSsend _nice_msg\ 

-—BLKB 3 

LONG i- 
ADDRESS P 

ASCII \Nicee transmitted\ 

-LONG 16 

-ADDRESS P.AAN 
SYS$Q10 
SCODES,NOWRT,2 

war NICE_MSG, Save R2,R3,R4,R5 
L16$si GNAL, R5 

#CNFS CINK: R4 

L2 16, SP 

PUSHAB P.AAK 


Page 12 
: a 


0483 


0532 


] 
2 | 
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104200 CNFSSEND_NICE_MSG send the response message 12786571388 95:28:88 NICNF. SRCICNF SEND .B32; By V 
0000' CF 9F 17 PUSHAB P.AAI : 0531 : 
| DD 0001B PUSHL # : : 
00006 CF F 1 CALLS #3, CNFSTRACE : : 
046 =#A MOVL RB, R : 0542 ’ 
Oc A CVTWL ©12(R2), STATUS : | : 
‘ ; e A BLBS STATUS. > 0543 : 
000020E4 = &F ; D4 00 D CPL STATUS, #8420 + 0546 : 
000020F4 8F 33 D4 99 6 CPL STATUS, #8436 + 0547) : 
83 DD 0003F PUSHL STATUS > 0549 : 
ze D4 904) CLRL. =(SP : ; 
54 DD 0004 PUSHL 4 : ; 
65 03 FB 90045 CALLS #3, LIBSSIGNAL : : 
2 DD 00048 1s: PUSHL R2 + 0550 : 
00006 CF 9F OO04A PUSHAB CNFSCLOSE_REQUEST_LINK ; : 
55 11 O004E BRB $$ : ; 
1€ Ag 8 00050 2$: TSTW 0(R2) : 0560 : 
17 13 00053 BEQL «6s 4$ ; : 
20 Ag 9F 00055 PUSHAB 32(R2) + 0563 : 
04 AE 1E A2 32 00058 CVTWL 30(R2), 4(SP) : ; 
04 AE 9F 0005D PUSHAB 4(SP) : i 
00006 CF 02 FB 00060 CALLS #2, CNFSFREE_VM ; : 
01 50 E8 00065 BLBS STATUS, 3$ F : 
04 00068 RET ; : 
1€ a2 B4 00069 3$: CLRW  30(R2) + 0564 ; 
50 14 Ad 9E 0006C 4$: MOVAB 20(R2), RO > 0571 ’ 
50 14 A2 D1 00070 CMPL O(R2), RO ; : 
29 13 00074 BEQL $ F : 
04 AE 14 A2 D0 00076 MOVL 20(R2), BNR + 0574 ; 
5 04 BE OF 00078 REMGUE @BNR, STATUS : 0575 : 
51 04 AC DO 0007F OVL IRB, R1 : 0576 : 
50 04 AE DO 00083 MOVL BNR, RO ; F 
1c AN 08 Ad 7D 00087 MOVd 8(RO), 28(R1) : : 
04 AE 9F 0008C PUSHAB BNR : 0579 ; 
04 AE 10 DO 0008F MOVL #16, 4(SP) : ; 
04 AE 9F 00093 PUSHAB 4(SP) : ; 
00006 CF 08 FB 00096 CALLS #2, CNFSFREE_VM : : 
OE 5 FS 0098 BLBS STATUS, 7$ ; ; 
4 0009E RET : ; 
52 DD OO09F 5S: PUSHL R2 : 0587 : 
00006 CF 9F O00A1 PUSHAB CNFSSOLICIT_REQUEST : ; 
00006 CF 02 FB OOOAS 68: CALLS #2, WKQSADD"WORK_ITEM : : 
60 11 OAA BRB : 0588 : 
21 00006 CF €9 OOOAC 7$: BLBC = CNFSGL_LOGMASK, 8$ : 0595 : 
08 AE 04 00081 CLRL DATA_DSC : 0599 : 
50 04 AC DO 000B4 MOVL RB, ~RO : 0600 : 
08 AE 1¢ AO BO 000B8 MOVW BRO), DATA_DSC ; ; 
OC AE 0 Ad p OBD MOVL (RO), DATA-DSC+4 > 0601 : 
8 AE 9F 000C PUSHAB DATA_DSC : 0602 : 
7E D4 ¢ CLRL <=(SPY : : 
0000" CF 9F ¢ PUSHAB P.AAM ; F 
00006 CF F Pe bboce Sets aa CNFSLOG_DATA : : 
— 7c $65 8$: CLRO 0. = ( §P) - + 0618 : 
7E r¢ 04 CLRQ = = (SP) : : 
50 04 aC D D6 MOVL IRB, RO : 3 


ee Oi iene Sh ete | 
NICNF .SRCJCNFSEND.B32; 


MSG send the response message 


et Configurator Module 


cw 


o=- mT 
om wm 
oo ono 
oo oo 
Serer etearea tata *e*e*e tata tate ta te ee 
o 2 
w ao 
= w 
4 ‘ oud 
~ w ax 4 
a. Vv aca z 
” _ "“w2~— o 
_ 2 ~> Gane tee 
& ‘ §inwArdo ” 
a ine aa 
. =z > &a «+ @ 
ee ee eh el oe) ~—O 
oo 4O OF DZD UC 
car WO Sues PO 
~~ wwOwZN «eau ss 
DWVO ZustOVr- Or eye ym 
PMV Be BRRTMUY I CRs 
@ 
debate oe adad tv —+ J 
BEIT TIS Ty ynqtortu4 
—NMNNY- HY YUSOYAH I> 
>DDDDD SDK OUD ID tow 
VEE 0.0400 VUE MALCAVEa& 
of 
oa 


<we Mr fVOOOOMwWi.-O Vu 
SoOWwWwwwie ue a OOOCCOCOO 


NoOoouue ONODOOOs OOo, 


MOBO OMOu Owocoeou oo 


COOOL OOO &. VOMM UT MMe 
ENV IM ZOOMWW- NOOO 


vo Ow 
-—-N 3 O 


F 
pA 
000000006 


mo 
ow 


7E 
7E 
09 


000000006 99 


272 bytes, Routine Base: $CODES + OOFS 


; Routine Size: 


2 

CNF SEND DECnet Ethernet Configurator Module 1s Sep-1984 02: 06:26 AX-11 Bliss-32 V4 
v04-000 CNFSSEND_NICE_MSG send the response message 14-Sep-1984 12:49: NICNF..SRCJCNF SEND 
> 446 Soe? ! End of module CNFSEND 
> 445 6 d ELUDON 

-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SPLITS 1 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, pktee'od Ered b ph {i 
; SCODES 517 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: cascsnes Syabol§ coecesee Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 1 0 581 00:01.1 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1IS$:CNFSEND/OBJ=0BJ$:CNFSEND MSRC$:CNFSEND/UPDATE=(ENHS$: CNF SEND) 
: gies 


un Time 
pda 
Lines/C 
Lexemes 


Memor 
et A 


COMMAND Q\'ALIFIERS 


517 code + 152 data bytes 


00: 
Hees 00: :¢8. a 
PU Min: 031 
/CPU-Min: 22300 
Used: 120 pages 
tion Complete 
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ENT CORPORATION 
ND PROPRIETARY 
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